home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
076-100
/
079
/
cmd
/
cmda.asm
< prev
next >
Wrap
Assembly Source File
|
1995-03-13
|
924b
|
48 lines
* cmda.asm --- assembler interface for Cmd.c
* Carolyn Scheppner --- CBM 05/87
INCLUDE 'exec/types.i'
XREF _AbsExecBase
XREF _MyBeginIO
XREF _MyClose
XREF _RealClose
XDEF _myBeginIO
XDEF _myClose
XDEF _myExpunge
CODE
_myBeginIO:
movem.l d0-d7/a0-a6,-(a7) ;save registers
move.l a1,-(a7) ;push ptr to io request
jsr _MyBeginIO
addq.l #4,a7
movem.l (a7)+,d0-d7/a0-a6 ;restore registers
rts
_myClose:
movem.l d0-d7/a0-a6,-(a7) ;save registers
move.l a1,-(a7) ;push ptr to io request
jsr _MyClose
addq.l #4,a7
movem.l (a7)+,d0-d7/a0-a6 ;restore registers
move.l _RealClose,a0 ;continue to real Close
jmp (a0)
_myExpunge:
moveq.l #0,d0 ;means unable to expunge
rts ;keep changed device from being expunged
END